

 IS_ZERO:
  MOV(R0, STARG(0));
  CMP(IND(R0), T_INTEGER);
  JUMP_EQ(L_IS_INT);
  CMP(IND(R0), T_FRACTION);
  JUMP_EQ(L_IS_FRAC);
  MOV(R0, IMM(3));
  RETURN;
 L_IS_INT:
  CMP(INDD(R0,1),0);
  JUMP_EQ(L_IS_ZERO_T);
  MOV(R0, IMM(3));
  RETURN;
 L_IS_FRAC:
  CMP(INDD(R0,1),0);
  JUMP_EQ(L_IS_ZERO_T);
  MOV(R0, IMM(3));
  RETURN;

 L_IS_ZERO_T:
  MOV(R0, IMM(5));
  RETURN;
